// export pak , yas ; var i ; starting begin ResetFog ;
   0: CALL_OW 335
// Randomize ;
   4: CALL_OW 10
// RandomizeAll ;
   8: CALL_OW 11
// uc_side = 3 ;
  12: LD_ADDR_OWVAR 20
  16: PUSH
  17: LD_INT 3
  19: ST_TO_ADDR
// pak = NewCharacter ( Pak ) ;
  20: LD_ADDR_EXP 1
  24: PUSH
  25: LD_STRING Pak
  27: PPUSH
  28: CALL_OW 25
  32: ST_TO_ADDR
// yas = NewCharacter ( Yas ) ;
  33: LD_ADDR_EXP 2
  37: PUSH
  38: LD_STRING Yas
  40: PPUSH
  41: CALL_OW 25
  45: ST_TO_ADDR
// PlaceUnitArea ( pak , rus , false ) ;
  46: LD_EXP 1
  50: PPUSH
  51: LD_INT 1
  53: PPUSH
  54: LD_INT 0
  56: PPUSH
  57: CALL_OW 49
// CreateCratesArea ( 5 , rus , false ) ;
  61: LD_INT 5
  63: PPUSH
  64: LD_INT 1
  66: PPUSH
  67: LD_INT 0
  69: PPUSH
  70: CALL_OW 55
// CreateCratesArea ( 5 , rus , false ) ;
  74: LD_INT 5
  76: PPUSH
  77: LD_INT 1
  79: PPUSH
  80: LD_INT 0
  82: PPUSH
  83: CALL_OW 55
// disable ( 02 ) ;
  87: LD_INT 2
  89: DISABLE_MARKED
// disable ( 03 ) ;
  90: LD_INT 3
  92: DISABLE_MARKED
// disable ( 04 ) ;
  93: LD_INT 4
  95: DISABLE_MARKED
// disable ( 05 ) ;
  96: LD_INT 5
  98: DISABLE_MARKED
// wait ( 0 0$0.5 ) ;
  99: LD_INT 18
 101: PPUSH
 102: CALL_OW 67
// CenterOnXY ( 47 , 5 ) ;
 106: LD_INT 47
 108: PPUSH
 109: LD_INT 5
 111: PPUSH
 112: CALL_OW 84
// DialogueOn ;
 116: CALL_OW 6
// Say ( pak , p1 ) ;
 120: LD_EXP 1
 124: PPUSH
 125: LD_STRING p1
 127: PPUSH
 128: CALL_OW 88
// SayRadio ( yas , y1 ) ;
 132: LD_EXP 2
 136: PPUSH
 137: LD_STRING y1
 139: PPUSH
 140: CALL_OW 94
// Say ( pak , p2 ) ;
 144: LD_EXP 1
 148: PPUSH
 149: LD_STRING p2
 151: PPUSH
 152: CALL_OW 88
// SayRadio ( yas , y2 ) ;
 156: LD_EXP 2
 160: PPUSH
 161: LD_STRING y2
 163: PPUSH
 164: CALL_OW 94
// Say ( pak , p3 ) ;
 168: LD_EXP 1
 172: PPUSH
 173: LD_STRING p3
 175: PPUSH
 176: CALL_OW 88
// DialogueOff ;
 180: CALL_OW 7
// ChangeMissionObjectives ( Cel ) ;
 184: LD_STRING Cel
 186: PPUSH
 187: CALL_OW 337
// end ;
 191: END
// every 2 2$0 do
 192: GO 194
 194: DISABLE
// begin enable ;
 195: ENABLE
// CreateCratesArea ( Rand ( 3 , 5 ) , krates , true ) ;
 196: LD_INT 3
 198: PPUSH
 199: LD_INT 5
 201: PPUSH
 202: CALL_OW 12
 206: PPUSH
 207: LD_INT 13
 209: PPUSH
 210: LD_INT 1
 212: PPUSH
 213: CALL_OW 55
// CreateCratesArea ( 2 , crates , true ) ;
 217: LD_INT 2
 219: PPUSH
 220: LD_INT 5
 222: PPUSH
 223: LD_INT 1
 225: PPUSH
 226: CALL_OW 55
// end ;
 230: END
// every 0 0$01 marked 01 do
 231: GO 233
 233: DISABLE
// begin wait ( 5 5$0 ) ;
 234: LD_INT 10500
 236: PPUSH
 237: CALL_OW 67
// prep_attack ;
 241: CALL 2448 0 0
// atak1 ;
 245: CALL 2604 0 0
// disable ( 01 ) ;
 249: LD_INT 1
 251: DISABLE_MARKED
// enable ( 02 ) ;
 252: LD_INT 2
 254: ENABLE_MARKED
// end ;
 255: END
// every 0 0$01 marked 02 do
 256: GO 258
 258: DISABLE
// begin wait ( 5 5$0 ) ;
 259: LD_INT 10500
 261: PPUSH
 262: CALL_OW 67
// prep_attack ;
 266: CALL 2448 0 0
// atak2 ;
 270: CALL 2668 0 0
// disable ( 02 ) ;
 274: LD_INT 2
 276: DISABLE_MARKED
// enable ( 03 ) ;
 277: LD_INT 3
 279: ENABLE_MARKED
// end ;
 280: END
// every 0 0$01 marked 03 do
 281: GO 283
 283: DISABLE
// begin wait ( 5 5$0 ) ;
 284: LD_INT 10500
 286: PPUSH
 287: CALL_OW 67
// prep_attack ;
 291: CALL 2448 0 0
// atak3 ;
 295: CALL 2732 0 0
// disable ( 03 ) ;
 299: LD_INT 3
 301: DISABLE_MARKED
// enable ( 04 ) ;
 302: LD_INT 4
 304: ENABLE_MARKED
// end ;
 305: END
// every 0 0$01 marked 04 do
 306: GO 308
 308: DISABLE
// begin wait ( 5 5$0 ) ;
 309: LD_INT 10500
 311: PPUSH
 312: CALL_OW 67
// prep_attack ;
 316: CALL 2448 0 0
// atak4 ;
 320: CALL 2796 0 0
// disable ( 04 ) ;
 324: LD_INT 4
 326: DISABLE_MARKED
// wait ( 2 2$0 ) ;
 327: LD_INT 4200
 329: PPUSH
 330: CALL_OW 67
// DialogueOn ;
 334: CALL_OW 6
// SayRadio ( yas , y3 ) ;
 338: LD_EXP 2
 342: PPUSH
 343: LD_STRING y3
 345: PPUSH
 346: CALL_OW 94
// Say ( pak , p7 ) ;
 350: LD_EXP 1
 354: PPUSH
 355: LD_STRING p7
 357: PPUSH
 358: CALL_OW 88
// SayRadio ( yas , y4 ) ;
 362: LD_EXP 2
 366: PPUSH
 367: LD_STRING y4
 369: PPUSH
 370: CALL_OW 94
// DialogueOff ;
 374: CALL_OW 7
// wait ( 3 3$0 ) ;
 378: LD_INT 6300
 380: PPUSH
 381: CALL_OW 67
// enable ( 05 ) ;
 385: LD_INT 5
 387: ENABLE_MARKED
// end ;
 388: END
// every 0 0$01 marked 05 do
 389: GO 391
 391: DISABLE
// begin for i = 1 to 5 do
 392: LD_ADDR_LOC 1
 396: PUSH
 397: DOUBLE
 398: LD_INT 1
 400: DEC
 401: ST_TO_ADDR
 402: LD_INT 5
 404: PUSH
 405: FOR_TO
 406: IFFALSE 537
// begin uc_side = 1 ;
 408: LD_ADDR_OWVAR 20
 412: PUSH
 413: LD_INT 1
 415: ST_TO_ADDR
// uc_nation = 1 ;
 416: LD_ADDR_OWVAR 21
 420: PUSH
 421: LD_INT 1
 423: ST_TO_ADDR
// hc_class = 1 ;
 424: LD_ADDR_OWVAR 28
 428: PUSH
 429: LD_INT 1
 431: ST_TO_ADDR
// hc_skills = [ Rand ( 3 , 5 ) , Rand ( 1 , 2 ) , Rand ( 1 , 3 ) , 0 ] ;
 432: LD_ADDR_OWVAR 31
 436: PUSH
 437: LD_INT 3
 439: PPUSH
 440: LD_INT 5
 442: PPUSH
 443: CALL_OW 12
 447: PUSH
 448: LD_INT 1
 450: PPUSH
 451: LD_INT 2
 453: PPUSH
 454: CALL_OW 12
 458: PUSH
 459: LD_INT 1
 461: PPUSH
 462: LD_INT 3
 464: PPUSH
 465: CALL_OW 12
 469: PUSH
 470: LD_INT 0
 472: PUSH
 473: EMPTY
 474: LIST
 475: LIST
 476: LIST
 477: LIST
 478: ST_TO_ADDR
// hc_sex = Rand ( 1 , 2 ) ;
 479: LD_ADDR_OWVAR 27
 483: PUSH
 484: LD_INT 1
 486: PPUSH
 487: LD_INT 2
 489: PPUSH
 490: CALL_OW 12
 494: ST_TO_ADDR
// jankes = CreateHuman ;
 495: LD_ADDR_EXP 9
 499: PUSH
 500: CALL_OW 44
 504: ST_TO_ADDR
// PlaceUnitArea ( jankes , am , false ) ;
 505: LD_EXP 9
 509: PPUSH
 510: LD_INT 2
 512: PPUSH
 513: LD_INT 0
 515: PPUSH
 516: CALL_OW 49
// ComAgressiveMove ( jankes , 116 , 1 ) ;
 520: LD_EXP 9
 524: PPUSH
 525: LD_INT 116
 527: PPUSH
 528: LD_INT 1
 530: PPUSH
 531: CALL_OW 114
// end ;
 535: GO 405
 537: POP
 538: POP
// end ;
 539: END
// every 0 0$01 marked 05 do
 540: GO 542
 542: DISABLE
// begin wait ( 0 0$03 ) ;
 543: LD_INT 105
 545: PPUSH
 546: CALL_OW 67
// for i = 1 to 5 do
 550: LD_ADDR_LOC 1
 554: PUSH
 555: DOUBLE
 556: LD_INT 1
 558: DEC
 559: ST_TO_ADDR
 560: LD_INT 5
 562: PUSH
 563: FOR_TO
 564: IFFALSE 695
// begin uc_side = 1 ;
 566: LD_ADDR_OWVAR 20
 570: PUSH
 571: LD_INT 1
 573: ST_TO_ADDR
// uc_nation = 1 ;
 574: LD_ADDR_OWVAR 21
 578: PUSH
 579: LD_INT 1
 581: ST_TO_ADDR
// hc_class = 1 ;
 582: LD_ADDR_OWVAR 28
 586: PUSH
 587: LD_INT 1
 589: ST_TO_ADDR
// hc_skills = [ Rand ( 3 , 5 ) , Rand ( 1 , 2 ) , Rand ( 1 , 3 ) , 0 ] ;
 590: LD_ADDR_OWVAR 31
 594: PUSH
 595: LD_INT 3
 597: PPUSH
 598: LD_INT 5
 600: PPUSH
 601: CALL_OW 12
 605: PUSH
 606: LD_INT 1
 608: PPUSH
 609: LD_INT 2
 611: PPUSH
 612: CALL_OW 12
 616: PUSH
 617: LD_INT 1
 619: PPUSH
 620: LD_INT 3
 622: PPUSH
 623: CALL_OW 12
 627: PUSH
 628: LD_INT 0
 630: PUSH
 631: EMPTY
 632: LIST
 633: LIST
 634: LIST
 635: LIST
 636: ST_TO_ADDR
// hc_sex = Rand ( 1 , 2 ) ;
 637: LD_ADDR_OWVAR 27
 641: PUSH
 642: LD_INT 1
 644: PPUSH
 645: LD_INT 2
 647: PPUSH
 648: CALL_OW 12
 652: ST_TO_ADDR
// jankes = CreateHuman ;
 653: LD_ADDR_EXP 9
 657: PUSH
 658: CALL_OW 44
 662: ST_TO_ADDR
// PlaceUnitArea ( jankes , ataka2 , false ) ;
 663: LD_EXP 9
 667: PPUSH
 668: LD_INT 9
 670: PPUSH
 671: LD_INT 0
 673: PPUSH
 674: CALL_OW 49
// ComAgressiveMove ( jankes , 88 , 1 ) ;
 678: LD_EXP 9
 682: PPUSH
 683: LD_INT 88
 685: PPUSH
 686: LD_INT 1
 688: PPUSH
 689: CALL_OW 114
// end ;
 693: GO 563
 695: POP
 696: POP
// end ;
 697: END
// every 0 0$01 marked 05 do
 698: GO 700
 700: DISABLE
// begin wait ( 0 0$06 ) ;
 701: LD_INT 210
 703: PPUSH
 704: CALL_OW 67
// for i = 1 to 5 do
 708: LD_ADDR_LOC 1
 712: PUSH
 713: DOUBLE
 714: LD_INT 1
 716: DEC
 717: ST_TO_ADDR
 718: LD_INT 5
 720: PUSH
 721: FOR_TO
 722: IFFALSE 853
// begin uc_side = 1 ;
 724: LD_ADDR_OWVAR 20
 728: PUSH
 729: LD_INT 1
 731: ST_TO_ADDR
// uc_nation = 1 ;
 732: LD_ADDR_OWVAR 21
 736: PUSH
 737: LD_INT 1
 739: ST_TO_ADDR
// hc_class = 1 ;
 740: LD_ADDR_OWVAR 28
 744: PUSH
 745: LD_INT 1
 747: ST_TO_ADDR
// hc_skills = [ Rand ( 3 , 5 ) , Rand ( 1 , 2 ) , Rand ( 1 , 3 ) , 0 ] ;
 748: LD_ADDR_OWVAR 31
 752: PUSH
 753: LD_INT 3
 755: PPUSH
 756: LD_INT 5
 758: PPUSH
 759: CALL_OW 12
 763: PUSH
 764: LD_INT 1
 766: PPUSH
 767: LD_INT 2
 769: PPUSH
 770: CALL_OW 12
 774: PUSH
 775: LD_INT 1
 777: PPUSH
 778: LD_INT 3
 780: PPUSH
 781: CALL_OW 12
 785: PUSH
 786: LD_INT 0
 788: PUSH
 789: EMPTY
 790: LIST
 791: LIST
 792: LIST
 793: LIST
 794: ST_TO_ADDR
// hc_sex = Rand ( 1 , 2 ) ;
 795: LD_ADDR_OWVAR 27
 799: PUSH
 800: LD_INT 1
 802: PPUSH
 803: LD_INT 2
 805: PPUSH
 806: CALL_OW 12
 810: ST_TO_ADDR
// jankes = CreateHuman ;
 811: LD_ADDR_EXP 9
 815: PUSH
 816: CALL_OW 44
 820: ST_TO_ADDR
// PlaceUnitArea ( jankes , ataka4 , false ) ;
 821: LD_EXP 9
 825: PPUSH
 826: LD_INT 11
 828: PPUSH
 829: LD_INT 0
 831: PPUSH
 832: CALL_OW 49
// ComAgressiveMove ( jankes , 60 , 1 ) ;
 836: LD_EXP 9
 840: PPUSH
 841: LD_INT 60
 843: PPUSH
 844: LD_INT 1
 846: PPUSH
 847: CALL_OW 114
// end ;
 851: GO 721
 853: POP
 854: POP
// end ;
 855: END
// every 0 0$01 marked 05 do
 856: GO 858
 858: DISABLE
// begin wait ( 0 0$09 ) ;
 859: LD_INT 315
 861: PPUSH
 862: CALL_OW 67
// for i = 1 to 5 do
 866: LD_ADDR_LOC 1
 870: PUSH
 871: DOUBLE
 872: LD_INT 1
 874: DEC
 875: ST_TO_ADDR
 876: LD_INT 5
 878: PUSH
 879: FOR_TO
 880: IFFALSE 1011
// begin uc_side = 1 ;
 882: LD_ADDR_OWVAR 20
 886: PUSH
 887: LD_INT 1
 889: ST_TO_ADDR
// uc_nation = 1 ;
 890: LD_ADDR_OWVAR 21
 894: PUSH
 895: LD_INT 1
 897: ST_TO_ADDR
// hc_class = 1 ;
 898: LD_ADDR_OWVAR 28
 902: PUSH
 903: LD_INT 1
 905: ST_TO_ADDR
// hc_skills = [ Rand ( 3 , 5 ) , Rand ( 1 , 2 ) , Rand ( 1 , 3 ) , 0 ] ;
 906: LD_ADDR_OWVAR 31
 910: PUSH
 911: LD_INT 3
 913: PPUSH
 914: LD_INT 5
 916: PPUSH
 917: CALL_OW 12
 921: PUSH
 922: LD_INT 1
 924: PPUSH
 925: LD_INT 2
 927: PPUSH
 928: CALL_OW 12
 932: PUSH
 933: LD_INT 1
 935: PPUSH
 936: LD_INT 3
 938: PPUSH
 939: CALL_OW 12
 943: PUSH
 944: LD_INT 0
 946: PUSH
 947: EMPTY
 948: LIST
 949: LIST
 950: LIST
 951: LIST
 952: ST_TO_ADDR
// hc_sex = Rand ( 1 , 2 ) ;
 953: LD_ADDR_OWVAR 27
 957: PUSH
 958: LD_INT 1
 960: PPUSH
 961: LD_INT 2
 963: PPUSH
 964: CALL_OW 12
 968: ST_TO_ADDR
// jankes = CreateHuman ;
 969: LD_ADDR_EXP 9
 973: PUSH
 974: CALL_OW 44
 978: ST_TO_ADDR
// PlaceUnitArea ( jankes , ataka3 , false ) ;
 979: LD_EXP 9
 983: PPUSH
 984: LD_INT 10
 986: PPUSH
 987: LD_INT 0
 989: PPUSH
 990: CALL_OW 49
// ComAgressiveMove ( jankes , 27 , 1 ) ;
 994: LD_EXP 9
 998: PPUSH
 999: LD_INT 27
1001: PPUSH
1002: LD_INT 1
1004: PPUSH
1005: CALL_OW 114
// end ;
1009: GO 879
1011: POP
1012: POP
// end ;
1013: END
// every 0 0$01 marked 05 do
1014: GO 1016
1016: DISABLE
// begin wait ( 0 0$12 ) ;
1017: LD_INT 420
1019: PPUSH
1020: CALL_OW 67
// for i = 1 to 5 do
1024: LD_ADDR_LOC 1
1028: PUSH
1029: DOUBLE
1030: LD_INT 1
1032: DEC
1033: ST_TO_ADDR
1034: LD_INT 5
1036: PUSH
1037: FOR_TO
1038: IFFALSE 1218
// begin uc_side = 1 ;
1040: LD_ADDR_OWVAR 20
1044: PUSH
1045: LD_INT 1
1047: ST_TO_ADDR
// uc_nation = 1 ;
1048: LD_ADDR_OWVAR 21
1052: PUSH
1053: LD_INT 1
1055: ST_TO_ADDR
// hc_class = 1 ;
1056: LD_ADDR_OWVAR 28
1060: PUSH
1061: LD_INT 1
1063: ST_TO_ADDR
// hc_skills = [ Rand ( 3 , 5 ) , Rand ( 1 , 2 ) , Rand ( 1 , 3 ) , 0 ] ;
1064: LD_ADDR_OWVAR 31
1068: PUSH
1069: LD_INT 3
1071: PPUSH
1072: LD_INT 5
1074: PPUSH
1075: CALL_OW 12
1079: PUSH
1080: LD_INT 1
1082: PPUSH
1083: LD_INT 2
1085: PPUSH
1086: CALL_OW 12
1090: PUSH
1091: LD_INT 1
1093: PPUSH
1094: LD_INT 3
1096: PPUSH
1097: CALL_OW 12
1101: PUSH
1102: LD_INT 0
1104: PUSH
1105: EMPTY
1106: LIST
1107: LIST
1108: LIST
1109: LIST
1110: ST_TO_ADDR
// hc_sex = Rand ( 1 , 2 ) ;
1111: LD_ADDR_OWVAR 27
1115: PUSH
1116: LD_INT 1
1118: PPUSH
1119: LD_INT 2
1121: PPUSH
1122: CALL_OW 12
1126: ST_TO_ADDR
// jankes = CreateHuman ;
1127: LD_ADDR_EXP 9
1131: PUSH
1132: CALL_OW 44
1136: ST_TO_ADDR
// PlaceUnitArea ( jankes , ataka1 , false ) ;
1137: LD_EXP 9
1141: PPUSH
1142: LD_INT 8
1144: PPUSH
1145: LD_INT 0
1147: PPUSH
1148: CALL_OW 49
// ComAgressiveMove ( jankes , 8 , 1 ) ;
1152: LD_EXP 9
1156: PPUSH
1157: LD_INT 8
1159: PPUSH
1160: LD_INT 1
1162: PPUSH
1163: CALL_OW 114
// armia = FilterAllUnits ( [ [ f_side , 1 ] , [ f_type , unit_vehicle ] ] ) ;
1167: LD_ADDR_EXP 17
1171: PUSH
1172: LD_INT 22
1174: PUSH
1175: LD_INT 1
1177: PUSH
1178: EMPTY
1179: LIST
1180: LIST
1181: PUSH
1182: LD_INT 21
1184: PUSH
1185: LD_INT 2
1187: PUSH
1188: EMPTY
1189: LIST
1190: LIST
1191: PUSH
1192: EMPTY
1193: LIST
1194: LIST
1195: PPUSH
1196: CALL_OW 69
1200: ST_TO_ADDR
// ComAgressiveMove ( armia , 85 , 1 ) ;
1201: LD_EXP 17
1205: PPUSH
1206: LD_INT 85
1208: PPUSH
1209: LD_INT 1
1211: PPUSH
1212: CALL_OW 114
// end ;
1216: GO 1037
1218: POP
1219: POP
// end ; end_of_file
1220: END
// export sol , eng , mec , doc , poj , pojmech ; var i ; every 0 0$0.1 do
1221: GO 1223
1223: DISABLE
// for i = 1 to 5 do
1224: LD_ADDR_LOC 2
1228: PUSH
1229: DOUBLE
1230: LD_INT 1
1232: DEC
1233: ST_TO_ADDR
1234: LD_INT 5
1236: PUSH
1237: FOR_TO
1238: IFFALSE 1346
// begin uc_nation = 3 ;
1240: LD_ADDR_OWVAR 21
1244: PUSH
1245: LD_INT 3
1247: ST_TO_ADDR
// hc_class = 1 ;
1248: LD_ADDR_OWVAR 28
1252: PUSH
1253: LD_INT 1
1255: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
1256: LD_ADDR_OWVAR 27
1260: PUSH
1261: LD_INT 1
1263: PPUSH
1264: LD_INT 2
1266: PPUSH
1267: CALL_OW 12
1271: ST_TO_ADDR
// hc_skills = [ Rand ( 3 , 5 ) , Rand ( 0 , 2 ) , Rand ( 0 , 2 ) , 0 ] ;
1272: LD_ADDR_OWVAR 31
1276: PUSH
1277: LD_INT 3
1279: PPUSH
1280: LD_INT 5
1282: PPUSH
1283: CALL_OW 12
1287: PUSH
1288: LD_INT 0
1290: PPUSH
1291: LD_INT 2
1293: PPUSH
1294: CALL_OW 12
1298: PUSH
1299: LD_INT 0
1301: PPUSH
1302: LD_INT 2
1304: PPUSH
1305: CALL_OW 12
1309: PUSH
1310: LD_INT 0
1312: PUSH
1313: EMPTY
1314: LIST
1315: LIST
1316: LIST
1317: LIST
1318: ST_TO_ADDR
// sol = CreateHuman ;
1319: LD_ADDR_EXP 3
1323: PUSH
1324: CALL_OW 44
1328: ST_TO_ADDR
// PlaceUnitArea ( sol , rus , false ) ;
1329: LD_EXP 3
1333: PPUSH
1334: LD_INT 1
1336: PPUSH
1337: LD_INT 0
1339: PPUSH
1340: CALL_OW 49
// end ;
1344: GO 1237
1346: POP
1347: POP
1348: END
// every 0 0$0.1 do
1349: GO 1351
1351: DISABLE
// for i = 1 to 2 do
1352: LD_ADDR_LOC 2
1356: PUSH
1357: DOUBLE
1358: LD_INT 1
1360: DEC
1361: ST_TO_ADDR
1362: LD_INT 2
1364: PUSH
1365: FOR_TO
1366: IFFALSE 1466
// begin hc_class = 2 ;
1368: LD_ADDR_OWVAR 28
1372: PUSH
1373: LD_INT 2
1375: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
1376: LD_ADDR_OWVAR 27
1380: PUSH
1381: LD_INT 1
1383: PPUSH
1384: LD_INT 2
1386: PPUSH
1387: CALL_OW 12
1391: ST_TO_ADDR
// hc_skills = [ Rand ( 2 , 4 ) , Rand ( 3 , 5 ) , Rand ( 0 , 3 ) , 0 ] ;
1392: LD_ADDR_OWVAR 31
1396: PUSH
1397: LD_INT 2
1399: PPUSH
1400: LD_INT 4
1402: PPUSH
1403: CALL_OW 12
1407: PUSH
1408: LD_INT 3
1410: PPUSH
1411: LD_INT 5
1413: PPUSH
1414: CALL_OW 12
1418: PUSH
1419: LD_INT 0
1421: PPUSH
1422: LD_INT 3
1424: PPUSH
1425: CALL_OW 12
1429: PUSH
1430: LD_INT 0
1432: PUSH
1433: EMPTY
1434: LIST
1435: LIST
1436: LIST
1437: LIST
1438: ST_TO_ADDR
// eng = CreateHuman ;
1439: LD_ADDR_EXP 4
1443: PUSH
1444: CALL_OW 44
1448: ST_TO_ADDR
// PlaceUnitArea ( eng , rus , false ) ;
1449: LD_EXP 4
1453: PPUSH
1454: LD_INT 1
1456: PPUSH
1457: LD_INT 0
1459: PPUSH
1460: CALL_OW 49
// end ;
1464: GO 1365
1466: POP
1467: POP
1468: END
// every 0 0$0.1 do
1469: GO 1471
1471: DISABLE
// begin hc_class = 3 ;
1472: LD_ADDR_OWVAR 28
1476: PUSH
1477: LD_INT 3
1479: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
1480: LD_ADDR_OWVAR 27
1484: PUSH
1485: LD_INT 1
1487: PPUSH
1488: LD_INT 2
1490: PPUSH
1491: CALL_OW 12
1495: ST_TO_ADDR
// hc_skills = [ Rand ( 1 , 3 ) , Rand ( 1 , 2 ) , 2 , 0 ] ;
1496: LD_ADDR_OWVAR 31
1500: PUSH
1501: LD_INT 1
1503: PPUSH
1504: LD_INT 3
1506: PPUSH
1507: CALL_OW 12
1511: PUSH
1512: LD_INT 1
1514: PPUSH
1515: LD_INT 2
1517: PPUSH
1518: CALL_OW 12
1522: PUSH
1523: LD_INT 2
1525: PUSH
1526: LD_INT 0
1528: PUSH
1529: EMPTY
1530: LIST
1531: LIST
1532: LIST
1533: LIST
1534: ST_TO_ADDR
// mec = CreateHuman ;
1535: LD_ADDR_EXP 5
1539: PUSH
1540: CALL_OW 44
1544: ST_TO_ADDR
// PlaceUnitArea ( mec , rus , false ) ;
1545: LD_EXP 5
1549: PPUSH
1550: LD_INT 1
1552: PPUSH
1553: LD_INT 0
1555: PPUSH
1556: CALL_OW 49
// end ;
1560: END
// every 0 0$0.1 do
1561: GO 1563
1563: DISABLE
// begin hc_class = 4 ;
1564: LD_ADDR_OWVAR 28
1568: PUSH
1569: LD_INT 4
1571: ST_TO_ADDR
// hc_skills = [ 0 , Rand ( 0 , 2 ) , Rand ( 0 , 2 ) , Rand ( 3 , 5 ) ] ;
1572: LD_ADDR_OWVAR 31
1576: PUSH
1577: LD_INT 0
1579: PUSH
1580: LD_INT 0
1582: PPUSH
1583: LD_INT 2
1585: PPUSH
1586: CALL_OW 12
1590: PUSH
1591: LD_INT 0
1593: PPUSH
1594: LD_INT 2
1596: PPUSH
1597: CALL_OW 12
1601: PUSH
1602: LD_INT 3
1604: PPUSH
1605: LD_INT 5
1607: PPUSH
1608: CALL_OW 12
1612: PUSH
1613: EMPTY
1614: LIST
1615: LIST
1616: LIST
1617: LIST
1618: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
1619: LD_ADDR_OWVAR 27
1623: PUSH
1624: LD_INT 1
1626: PPUSH
1627: LD_INT 2
1629: PPUSH
1630: CALL_OW 12
1634: ST_TO_ADDR
// doc = CreateHuman ;
1635: LD_ADDR_EXP 6
1639: PUSH
1640: CALL_OW 44
1644: ST_TO_ADDR
// PlaceUnitArea ( doc , rus , false ) ;
1645: LD_EXP 6
1649: PPUSH
1650: LD_INT 1
1652: PPUSH
1653: LD_INT 0
1655: PPUSH
1656: CALL_OW 49
// end ;
1660: END
// every 0 0$01 marked 05 do
1661: GO 1663
1663: DISABLE
// begin wait ( 1 1$0 ) ;
1664: LD_INT 2100
1666: PPUSH
1667: CALL_OW 67
// for i = 1 to 2 do
1671: LD_ADDR_LOC 2
1675: PUSH
1676: DOUBLE
1677: LD_INT 1
1679: DEC
1680: ST_TO_ADDR
1681: LD_INT 2
1683: PUSH
1684: FOR_TO
1685: IFFALSE 1857
// begin uc_nation = 3 ;
1687: LD_ADDR_OWVAR 21
1691: PUSH
1692: LD_INT 3
1694: ST_TO_ADDR
// uc_side = 3 ;
1695: LD_ADDR_OWVAR 20
1699: PUSH
1700: LD_INT 3
1702: ST_TO_ADDR
// vc_chassis = ru_medium_wheeled ;
1703: LD_ADDR_OWVAR 37
1707: PUSH
1708: LD_INT 21
1710: ST_TO_ADDR
// vc_control = control_manual ;
1711: LD_ADDR_OWVAR 38
1715: PUSH
1716: LD_INT 1
1718: ST_TO_ADDR
// vc_engine = engine_combustion ;
1719: LD_ADDR_OWVAR 39
1723: PUSH
1724: LD_INT 1
1726: ST_TO_ADDR
// vc_weapon = ru_heavy_machine_gun ;
1727: LD_ADDR_OWVAR 40
1731: PUSH
1732: LD_INT 42
1734: ST_TO_ADDR
// poj = CreateVehicle ;
1735: LD_ADDR_EXP 7
1739: PUSH
1740: CALL_OW 45
1744: ST_TO_ADDR
// PlaceUnitArea ( poj , rus , false ) ;
1745: LD_EXP 7
1749: PPUSH
1750: LD_INT 1
1752: PPUSH
1753: LD_INT 0
1755: PPUSH
1756: CALL_OW 49
// hc_skills = [ Rand ( 1 , 2 ) , Rand ( 0 , 2 ) , Rand ( 3 , 5 ) , 0 ] ;
1760: LD_ADDR_OWVAR 31
1764: PUSH
1765: LD_INT 1
1767: PPUSH
1768: LD_INT 2
1770: PPUSH
1771: CALL_OW 12
1775: PUSH
1776: LD_INT 0
1778: PPUSH
1779: LD_INT 2
1781: PPUSH
1782: CALL_OW 12
1786: PUSH
1787: LD_INT 3
1789: PPUSH
1790: LD_INT 5
1792: PPUSH
1793: CALL_OW 12
1797: PUSH
1798: LD_INT 0
1800: PUSH
1801: EMPTY
1802: LIST
1803: LIST
1804: LIST
1805: LIST
1806: ST_TO_ADDR
// hc_class = 3 ;
1807: LD_ADDR_OWVAR 28
1811: PUSH
1812: LD_INT 3
1814: ST_TO_ADDR
// hc_sex = Rand ( 1 , 2 ) ;
1815: LD_ADDR_OWVAR 27
1819: PUSH
1820: LD_INT 1
1822: PPUSH
1823: LD_INT 2
1825: PPUSH
1826: CALL_OW 12
1830: ST_TO_ADDR
// pojmech = CreateHuman ;
1831: LD_ADDR_EXP 8
1835: PUSH
1836: CALL_OW 44
1840: ST_TO_ADDR
// PlaceHumanInUnit ( pojmech , poj ) ;
1841: LD_EXP 8
1845: PPUSH
1846: LD_EXP 7
1850: PPUSH
1851: CALL_OW 52
// end ;
1855: GO 1684
1857: POP
1858: POP
// Say ( pojmech , pos1 ) ;
1859: LD_EXP 8
1863: PPUSH
1864: LD_STRING pos1
1866: PPUSH
1867: CALL_OW 88
// end ;
1871: END
// every 0 0$01 trigger See ( 3 , FilterAllUnits ( [ [ f_side , 1 ] , [ f_type , unit_vehicle ] ] ) [ i ] ) do
1872: LD_INT 3
1874: PPUSH
1875: LD_INT 22
1877: PUSH
1878: LD_INT 1
1880: PUSH
1881: EMPTY
1882: LIST
1883: LIST
1884: PUSH
1885: LD_INT 21
1887: PUSH
1888: LD_INT 2
1890: PUSH
1891: EMPTY
1892: LIST
1893: LIST
1894: PUSH
1895: EMPTY
1896: LIST
1897: LIST
1898: PPUSH
1899: CALL_OW 69
1903: PUSH
1904: LD_LOC 2
1908: ARRAY
1909: PPUSH
1910: CALL_OW 292
1914: IFFALSE 1938
1916: GO 1918
1918: DISABLE
// begin Say ( pak , p5 ) ;
1919: LD_EXP 1
1923: PPUSH
1924: LD_STRING p5
1926: PPUSH
1927: CALL_OW 88
// ChangeMissionObjectives ( CelM2 ) ;
1931: LD_STRING CelM2
1933: PPUSH
1934: CALL_OW 337
// end ;
1938: END
// every 0 0$01 + 7 7$0 trigger FilterAllUnits ( [ [ f_side , 1 ] , [ f_btype , b_workshop ] ] ) = 0 do
1939: LD_INT 22
1941: PUSH
1942: LD_INT 1
1944: PUSH
1945: EMPTY
1946: LIST
1947: LIST
1948: PUSH
1949: LD_INT 30
1951: PUSH
1952: LD_INT 2
1954: PUSH
1955: EMPTY
1956: LIST
1957: LIST
1958: PUSH
1959: EMPTY
1960: LIST
1961: LIST
1962: PPUSH
1963: CALL_OW 69
1967: PUSH
1968: LD_INT 0
1970: EQUAL
1971: IFFALSE 1995
1973: GO 1975
1975: DISABLE
// begin Say ( pak , p6 ) ;
1976: LD_EXP 1
1980: PPUSH
1981: LD_STRING p6
1983: PPUSH
1984: CALL_OW 88
// ChangeMissionObjectives ( CelM2w ) ;
1988: LD_STRING CelM2w
1990: PPUSH
1991: CALL_OW 337
// end ; end_of_file
1995: END
// export jankes , jankes2 , bud , dak , depo , lab , work , mech , armia , ranni ; var i , j ; every 0 0$01 do
1996: GO 1998
1998: DISABLE
// for j = 1 to 5 do
1999: LD_ADDR_LOC 4
2003: PUSH
2004: DOUBLE
2005: LD_INT 1
2007: DEC
2008: ST_TO_ADDR
2009: LD_INT 5
2011: PUSH
2012: FOR_TO
2013: IFFALSE 2148
// begin Randomize ;
2015: CALL_OW 10
// uc_side = 1 ;
2019: LD_ADDR_OWVAR 20
2023: PUSH
2024: LD_INT 1
2026: ST_TO_ADDR
// uc_nation = 1 ;
2027: LD_ADDR_OWVAR 21
2031: PUSH
2032: LD_INT 1
2034: ST_TO_ADDR
// hc_class = 1 ;
2035: LD_ADDR_OWVAR 28
2039: PUSH
2040: LD_INT 1
2042: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
2043: LD_ADDR_OWVAR 27
2047: PUSH
2048: LD_INT 1
2050: PPUSH
2051: LD_INT 2
2053: PPUSH
2054: CALL_OW 12
2058: ST_TO_ADDR
// hc_skills = [ Rand ( 4 , 6 ) , Rand ( 0 , 3 ) , Rand ( 0 , 3 ) , 0 ] ;
2059: LD_ADDR_OWVAR 31
2063: PUSH
2064: LD_INT 4
2066: PPUSH
2067: LD_INT 6
2069: PPUSH
2070: CALL_OW 12
2074: PUSH
2075: LD_INT 0
2077: PPUSH
2078: LD_INT 3
2080: PPUSH
2081: CALL_OW 12
2085: PUSH
2086: LD_INT 0
2088: PPUSH
2089: LD_INT 3
2091: PPUSH
2092: CALL_OW 12
2096: PUSH
2097: LD_INT 0
2099: PUSH
2100: EMPTY
2101: LIST
2102: LIST
2103: LIST
2104: LIST
2105: ST_TO_ADDR
// jankes = CreateHuman ;
2106: LD_ADDR_EXP 9
2110: PUSH
2111: CALL_OW 44
2115: ST_TO_ADDR
// PlaceUnitArea ( jankes , am , false ) ;
2116: LD_EXP 9
2120: PPUSH
2121: LD_INT 2
2123: PPUSH
2124: LD_INT 0
2126: PPUSH
2127: CALL_OW 49
// ComMoveXY ( jankes , 61 , 94 ) ;
2131: LD_EXP 9
2135: PPUSH
2136: LD_INT 61
2138: PPUSH
2139: LD_INT 94
2141: PPUSH
2142: CALL_OW 111
// end ;
2146: GO 2012
2148: POP
2149: POP
2150: END
// every 0 0$01 do
2151: GO 2153
2153: DISABLE
// begin hc_class = 2 ;
2154: LD_ADDR_OWVAR 28
2158: PUSH
2159: LD_INT 2
2161: ST_TO_ADDR
// hc_skills = [ Rand ( 1 , 3 ) , 6 , Rand ( 0 , 3 ) , 0 ] ;
2162: LD_ADDR_OWVAR 31
2166: PUSH
2167: LD_INT 1
2169: PPUSH
2170: LD_INT 3
2172: PPUSH
2173: CALL_OW 12
2177: PUSH
2178: LD_INT 6
2180: PUSH
2181: LD_INT 0
2183: PPUSH
2184: LD_INT 3
2186: PPUSH
2187: CALL_OW 12
2191: PUSH
2192: LD_INT 0
2194: PUSH
2195: EMPTY
2196: LIST
2197: LIST
2198: LIST
2199: LIST
2200: ST_TO_ADDR
// bud = CreateHuman ;
2201: LD_ADDR_EXP 11
2205: PUSH
2206: CALL_OW 44
2210: ST_TO_ADDR
// PlaceUnitArea ( bud , am , false ) ;
2211: LD_EXP 11
2215: PPUSH
2216: LD_INT 2
2218: PPUSH
2219: LD_INT 0
2221: PPUSH
2222: CALL_OW 49
// ComBuild ( bud , b_depot , 53 , 95 , 2 ) ;
2226: LD_EXP 11
2230: PPUSH
2231: LD_INT 0
2233: PPUSH
2234: LD_INT 53
2236: PPUSH
2237: LD_INT 95
2239: PPUSH
2240: LD_INT 2
2242: PPUSH
2243: CALL_OW 145
// AddComCollect ( bud , 54 , 92 ) ;
2247: LD_EXP 11
2251: PPUSH
2252: LD_INT 54
2254: PPUSH
2255: LD_INT 92
2257: PPUSH
2258: CALL_OW 177
// AddComCollect ( bud , 54 , 91 ) ;
2262: LD_EXP 11
2266: PPUSH
2267: LD_INT 54
2269: PPUSH
2270: LD_INT 91
2272: PPUSH
2273: CALL_OW 177
// AddComBuild ( bud , b_lab , 55 , 103 , 1 ) ;
2277: LD_EXP 11
2281: PPUSH
2282: LD_INT 6
2284: PPUSH
2285: LD_INT 55
2287: PPUSH
2288: LD_INT 103
2290: PPUSH
2291: LD_INT 1
2293: PPUSH
2294: CALL_OW 205
// AddComBuild ( bud , b_breastwork , 56 , 89 , 3 ) ;
2298: LD_EXP 11
2302: PPUSH
2303: LD_INT 31
2305: PPUSH
2306: LD_INT 56
2308: PPUSH
2309: LD_INT 89
2311: PPUSH
2312: LD_INT 3
2314: PPUSH
2315: CALL_OW 205
// AddComBuild ( bud , b_breastwork , 65 , 98 , 4 ) ;
2319: LD_EXP 11
2323: PPUSH
2324: LD_INT 31
2326: PPUSH
2327: LD_INT 65
2329: PPUSH
2330: LD_INT 98
2332: PPUSH
2333: LD_INT 4
2335: PPUSH
2336: CALL_OW 205
// AddComBuild ( bud , b_workshop , 61 , 109 , 0 ) ;
2340: LD_EXP 11
2344: PPUSH
2345: LD_INT 2
2347: PPUSH
2348: LD_INT 61
2350: PPUSH
2351: LD_INT 109
2353: PPUSH
2354: LD_INT 0
2356: PPUSH
2357: CALL_OW 205
// AddComMoveXY ( bud , 56 , 95 ) ;
2361: LD_EXP 11
2365: PPUSH
2366: LD_INT 56
2368: PPUSH
2369: LD_INT 95
2371: PPUSH
2372: CALL_OW 171
// hc_class = 4 ;
2376: LD_ADDR_OWVAR 28
2380: PUSH
2381: LD_INT 4
2383: ST_TO_ADDR
// hc_skills = [ 0 , 0 , 0 , 0 ] ;
2384: LD_ADDR_OWVAR 31
2388: PUSH
2389: LD_INT 0
2391: PUSH
2392: LD_INT 0
2394: PUSH
2395: LD_INT 0
2397: PUSH
2398: LD_INT 0
2400: PUSH
2401: EMPTY
2402: LIST
2403: LIST
2404: LIST
2405: LIST
2406: ST_TO_ADDR
// dak = CreateHuman ;
2407: LD_ADDR_EXP 12
2411: PUSH
2412: CALL_OW 44
2416: ST_TO_ADDR
// PlaceUnitArea ( dak , am , false ) ;
2417: LD_EXP 12
2421: PPUSH
2422: LD_INT 2
2424: PPUSH
2425: LD_INT 0
2427: PPUSH
2428: CALL_OW 49
// ComMoveXY ( dak , 59 , 98 ) ;
2432: LD_EXP 12
2436: PPUSH
2437: LD_INT 59
2439: PPUSH
2440: LD_INT 98
2442: PPUSH
2443: CALL_OW 111
// end ;
2447: END
// export function prep_attack ; begin
2448: LD_INT 0
2450: PPUSH
// for j = 1 to 5 do
2451: LD_ADDR_LOC 4
2455: PUSH
2456: DOUBLE
2457: LD_INT 1
2459: DEC
2460: ST_TO_ADDR
2461: LD_INT 5
2463: PUSH
2464: FOR_TO
2465: IFFALSE 2597
// begin Randomize ;
2467: CALL_OW 10
// hc_class = 1 ;
2471: LD_ADDR_OWVAR 28
2475: PUSH
2476: LD_INT 1
2478: ST_TO_ADDR
// hc_skills = [ Rand ( 2 , 4 ) , Rand ( 1 , 2 ) , Rand ( 0 , 1 ) , 0 ] ;
2479: LD_ADDR_OWVAR 31
2483: PUSH
2484: LD_INT 2
2486: PPUSH
2487: LD_INT 4
2489: PPUSH
2490: CALL_OW 12
2494: PUSH
2495: LD_INT 1
2497: PPUSH
2498: LD_INT 2
2500: PPUSH
2501: CALL_OW 12
2505: PUSH
2506: LD_INT 0
2508: PPUSH
2509: LD_INT 1
2511: PPUSH
2512: CALL_OW 12
2516: PUSH
2517: LD_INT 0
2519: PUSH
2520: EMPTY
2521: LIST
2522: LIST
2523: LIST
2524: LIST
2525: ST_TO_ADDR
// uc_side = 1 ;
2526: LD_ADDR_OWVAR 20
2530: PUSH
2531: LD_INT 1
2533: ST_TO_ADDR
// uc_nation = 1 ;
2534: LD_ADDR_OWVAR 21
2538: PUSH
2539: LD_INT 1
2541: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
2542: LD_ADDR_OWVAR 27
2546: PUSH
2547: LD_INT 1
2549: PPUSH
2550: LD_INT 2
2552: PPUSH
2553: CALL_OW 12
2557: ST_TO_ADDR
// jankes2 = CreateHuman ;
2558: LD_ADDR_EXP 10
2562: PUSH
2563: CALL_OW 44
2567: ST_TO_ADDR
// PlaceUnitArea ( jankes2 , am , false ) ;
2568: LD_EXP 10
2572: PPUSH
2573: LD_INT 2
2575: PPUSH
2576: LD_INT 0
2578: PPUSH
2579: CALL_OW 49
// ComMoveToArea ( jankes2 , punkt ) ;
2583: LD_EXP 10
2587: PPUSH
2588: LD_INT 7
2590: PPUSH
2591: CALL_OW 113
// end ;
2595: GO 2464
2597: POP
2598: POP
// end ;
2599: LD_VAR 0 1
2603: RET
// export function atak1 ; begin
2604: LD_INT 0
2606: PPUSH
// wait ( 1 1$0 ) ;
2607: LD_INT 2100
2609: PPUSH
2610: CALL_OW 67
// armia = FilterAllUnits ( [ [ f_side , 1 ] , [ f_inarea , veh ] ] ) ;
2614: LD_ADDR_EXP 17
2618: PUSH
2619: LD_INT 22
2621: PUSH
2622: LD_INT 1
2624: PUSH
2625: EMPTY
2626: LIST
2627: LIST
2628: PUSH
2629: LD_INT 95
2631: PUSH
2632: LD_INT 6
2634: PUSH
2635: EMPTY
2636: LIST
2637: LIST
2638: PUSH
2639: EMPTY
2640: LIST
2641: LIST
2642: PPUSH
2643: CALL_OW 69
2647: ST_TO_ADDR
// ComAgressiveMove ( armia , 8 , 1 ) ;
2648: LD_EXP 17
2652: PPUSH
2653: LD_INT 8
2655: PPUSH
2656: LD_INT 1
2658: PPUSH
2659: CALL_OW 114
// end ;
2663: LD_VAR 0 1
2667: RET
// export function atak2 ; begin
2668: LD_INT 0
2670: PPUSH
// wait ( 1 1$0 ) ;
2671: LD_INT 2100
2673: PPUSH
2674: CALL_OW 67
// armia = FilterAllUnits ( [ [ f_side , 1 ] , [ f_inarea , veh ] ] ) ;
2678: LD_ADDR_EXP 17
2682: PUSH
2683: LD_INT 22
2685: PUSH
2686: LD_INT 1
2688: PUSH
2689: EMPTY
2690: LIST
2691: LIST
2692: PUSH
2693: LD_INT 95
2695: PUSH
2696: LD_INT 6
2698: PUSH
2699: EMPTY
2700: LIST
2701: LIST
2702: PUSH
2703: EMPTY
2704: LIST
2705: LIST
2706: PPUSH
2707: CALL_OW 69
2711: ST_TO_ADDR
// ComAgressiveMove ( armia , 45 , 1 ) ;
2712: LD_EXP 17
2716: PPUSH
2717: LD_INT 45
2719: PPUSH
2720: LD_INT 1
2722: PPUSH
2723: CALL_OW 114
// end ;
2727: LD_VAR 0 1
2731: RET
// export function atak3 ; begin
2732: LD_INT 0
2734: PPUSH
// wait ( 1 1$0 ) ;
2735: LD_INT 2100
2737: PPUSH
2738: CALL_OW 67
// armia = FilterAllUnits ( [ [ f_side , 1 ] , [ f_inarea , veh ] ] ) ;
2742: LD_ADDR_EXP 17
2746: PUSH
2747: LD_INT 22
2749: PUSH
2750: LD_INT 1
2752: PUSH
2753: EMPTY
2754: LIST
2755: LIST
2756: PUSH
2757: LD_INT 95
2759: PUSH
2760: LD_INT 6
2762: PUSH
2763: EMPTY
2764: LIST
2765: LIST
2766: PUSH
2767: EMPTY
2768: LIST
2769: LIST
2770: PPUSH
2771: CALL_OW 69
2775: ST_TO_ADDR
// ComAgressiveMove ( armia , 84 , 1 ) ;
2776: LD_EXP 17
2780: PPUSH
2781: LD_INT 84
2783: PPUSH
2784: LD_INT 1
2786: PPUSH
2787: CALL_OW 114
// end ;
2791: LD_VAR 0 1
2795: RET
// export function atak4 ; begin
2796: LD_INT 0
2798: PPUSH
// wait ( 1 1$0 ) ;
2799: LD_INT 2100
2801: PPUSH
2802: CALL_OW 67
// armia = FilterAllUnits ( [ [ f_side , 1 ] , [ f_inarea , veh ] ] ) ;
2806: LD_ADDR_EXP 17
2810: PUSH
2811: LD_INT 22
2813: PUSH
2814: LD_INT 1
2816: PUSH
2817: EMPTY
2818: LIST
2819: LIST
2820: PUSH
2821: LD_INT 95
2823: PUSH
2824: LD_INT 6
2826: PUSH
2827: EMPTY
2828: LIST
2829: LIST
2830: PUSH
2831: EMPTY
2832: LIST
2833: LIST
2834: PPUSH
2835: CALL_OW 69
2839: ST_TO_ADDR
// ComAgressiveMove ( armia , 117 , 1 ) ;
2840: LD_EXP 17
2844: PPUSH
2845: LD_INT 117
2847: PPUSH
2848: LD_INT 1
2850: PPUSH
2851: CALL_OW 114
// end ;
2855: LD_VAR 0 1
2859: RET
// every 0 0$01 do
2860: GO 2862
2862: DISABLE
// begin enable ;
2863: ENABLE
// ranni := FilterAllUnits ( [ [ f_side , 1 ] , [ f_not , [ f_lives , 500 ] ] ] ) ;
2864: LD_ADDR_EXP 18
2868: PUSH
2869: LD_INT 22
2871: PUSH
2872: LD_INT 1
2874: PUSH
2875: EMPTY
2876: LIST
2877: LIST
2878: PUSH
2879: LD_INT 3
2881: PUSH
2882: LD_INT 24
2884: PUSH
2885: LD_INT 500
2887: PUSH
2888: EMPTY
2889: LIST
2890: LIST
2891: PUSH
2892: EMPTY
2893: LIST
2894: LIST
2895: PUSH
2896: EMPTY
2897: LIST
2898: LIST
2899: PPUSH
2900: CALL_OW 69
2904: ST_TO_ADDR
// ComMoveToArea ( ranni , jankesarea ) ;
2905: LD_EXP 18
2909: PPUSH
2910: LD_INT 4
2912: PPUSH
2913: CALL_OW 113
// end ; end_of_file
2917: END
// var i , grupa , nasi ; on BuildingComplete ( b ) do begin if GetSide ( b ) = 1 then
2918: LD_VAR 0 1
2922: PPUSH
2923: CALL_OW 255
2927: PUSH
2928: LD_INT 1
2930: EQUAL
2931: IFFALSE 3412
// begin if GetBType ( b ) = b_breastwork then
2933: LD_VAR 0 1
2937: PPUSH
2938: CALL_OW 266
2942: PUSH
2943: LD_INT 31
2945: EQUAL
2946: IFFALSE 3088
// begin uc_side = 1 ;
2948: LD_ADDR_OWVAR 20
2952: PUSH
2953: LD_INT 1
2955: ST_TO_ADDR
// hc_class = 1 ;
2956: LD_ADDR_OWVAR 28
2960: PUSH
2961: LD_INT 1
2963: ST_TO_ADDR
// hc_skills = [ Rand ( 3 , 5 ) , 0 , 0 , 0 ] ;
2964: LD_ADDR_OWVAR 31
2968: PUSH
2969: LD_INT 3
2971: PPUSH
2972: LD_INT 5
2974: PPUSH
2975: CALL_OW 12
2979: PUSH
2980: LD_INT 0
2982: PUSH
2983: LD_INT 0
2985: PUSH
2986: LD_INT 0
2988: PUSH
2989: EMPTY
2990: LIST
2991: LIST
2992: LIST
2993: LIST
2994: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
2995: LD_ADDR_OWVAR 27
2999: PUSH
3000: LD_INT 1
3002: PPUSH
3003: LD_INT 2
3005: PPUSH
3006: CALL_OW 12
3010: ST_TO_ADDR
// jankes = CreateHuman ;
3011: LD_ADDR_EXP 9
3015: PUSH
3016: CALL_OW 44
3020: ST_TO_ADDR
// PlaceUnitArea ( jankes , am2 , false ) ;
3021: LD_EXP 9
3025: PPUSH
3026: LD_INT 3
3028: PPUSH
3029: LD_INT 0
3031: PPUSH
3032: CALL_OW 49
// ComMoveXY ( jankes , 51 , 90 ) ;
3036: LD_EXP 9
3040: PPUSH
3041: LD_INT 51
3043: PPUSH
3044: LD_INT 90
3046: PPUSH
3047: CALL_OW 111
// AddComEnterUnit ( jankes , b ) ;
3051: LD_EXP 9
3055: PPUSH
3056: LD_VAR 0 1
3060: PPUSH
3061: CALL_OW 180
// SetSide ( [ jankes , b ] , 4 ) ;
3065: LD_EXP 9
3069: PUSH
3070: LD_VAR 0 1
3074: PUSH
3075: EMPTY
3076: LIST
3077: LIST
3078: PPUSH
3079: LD_INT 4
3081: PPUSH
3082: CALL_OW 235
// end else
3086: GO 3412
// begin if GetBType ( b ) = b_depot then
3088: LD_VAR 0 1
3092: PPUSH
3093: CALL_OW 266
3097: PUSH
3098: LD_INT 0
3100: EQUAL
3101: IFFALSE 3125
// begin depo = b ;
3103: LD_ADDR_EXP 13
3107: PUSH
3108: LD_VAR 0 1
3112: ST_TO_ADDR
// SetAreaMapShow ( jankesarea , 1 ) ;
3113: LD_INT 4
3115: PPUSH
3116: LD_INT 1
3118: PPUSH
3119: CALL_OW 424
// end else
3123: GO 3412
// begin if GetBType ( b ) = b_lab then
3125: LD_VAR 0 1
3129: PPUSH
3130: CALL_OW 266
3134: PUSH
3135: LD_INT 6
3137: EQUAL
3138: IFFALSE 3202
// begin lab = b ;
3140: LD_ADDR_EXP 14
3144: PUSH
3145: LD_VAR 0 1
3149: ST_TO_ADDR
// AddComResearch ( b , tech_solpow ) ;
3150: LD_VAR 0 1
3154: PPUSH
3155: LD_INT 35
3157: PPUSH
3158: CALL_OW 184
// AddComResearch ( b , tech_soleng ) ;
3162: LD_VAR 0 1
3166: PPUSH
3167: LD_INT 45
3169: PPUSH
3170: CALL_OW 184
// AddComResearch ( b , tech_tech1 ) ;
3174: LD_VAR 0 1
3178: PPUSH
3179: LD_INT 48
3181: PPUSH
3182: CALL_OW 184
// ComEnterUnit ( dak , b ) ;
3186: LD_EXP 12
3190: PPUSH
3191: LD_VAR 0 1
3195: PPUSH
3196: CALL_OW 120
// end else
3200: GO 3412
// begin if GetBType ( b ) = b_workshop then
3202: LD_VAR 0 1
3206: PPUSH
3207: CALL_OW 266
3211: PUSH
3212: LD_INT 2
3214: EQUAL
3215: IFFALSE 3412
// begin work = b ;
3217: LD_ADDR_EXP 15
3221: PUSH
3222: LD_VAR 0 1
3226: ST_TO_ADDR
// AddComConstruct ( work , us_light_wheeled , engine_solar , control_manual , us_machine_gun ) ;
3227: LD_EXP 15
3231: PPUSH
3232: LD_INT 1
3234: PPUSH
3235: LD_INT 2
3237: PPUSH
3238: LD_INT 1
3240: PPUSH
3241: LD_INT 2
3243: PPUSH
3244: CALL_OW 185
// AddComConstruct ( work , us_light_wheeled , engine_solar , control_manual , us_machine_gun ) ;
3248: LD_EXP 15
3252: PPUSH
3253: LD_INT 1
3255: PPUSH
3256: LD_INT 2
3258: PPUSH
3259: LD_INT 1
3261: PPUSH
3262: LD_INT 2
3264: PPUSH
3265: CALL_OW 185
// AddComConstruct ( work , us_light_wheeled , engine_solar , control_manual , us_machine_gun ) ;
3269: LD_EXP 15
3273: PPUSH
3274: LD_INT 1
3276: PPUSH
3277: LD_INT 2
3279: PPUSH
3280: LD_INT 1
3282: PPUSH
3283: LD_INT 2
3285: PPUSH
3286: CALL_OW 185
// for i = 1 to 3 do
3290: LD_ADDR_LOC 5
3294: PUSH
3295: DOUBLE
3296: LD_INT 1
3298: DEC
3299: ST_TO_ADDR
3300: LD_INT 3
3302: PUSH
3303: FOR_TO
3304: IFFALSE 3410
// begin uc_side = 1 ;
3306: LD_ADDR_OWVAR 20
3310: PUSH
3311: LD_INT 1
3313: ST_TO_ADDR
// hc_skills = [ 1 , 1 , Rand ( 1 , 3 ) , 0 ] ;
3314: LD_ADDR_OWVAR 31
3318: PUSH
3319: LD_INT 1
3321: PUSH
3322: LD_INT 1
3324: PUSH
3325: LD_INT 1
3327: PPUSH
3328: LD_INT 3
3330: PPUSH
3331: CALL_OW 12
3335: PUSH
3336: LD_INT 0
3338: PUSH
3339: EMPTY
3340: LIST
3341: LIST
3342: LIST
3343: LIST
3344: ST_TO_ADDR
// hc_class = 3 ;
3345: LD_ADDR_OWVAR 28
3349: PUSH
3350: LD_INT 3
3352: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
3353: LD_ADDR_OWVAR 27
3357: PUSH
3358: LD_INT 1
3360: PPUSH
3361: LD_INT 2
3363: PPUSH
3364: CALL_OW 12
3368: ST_TO_ADDR
// mech = CreateHuman ;
3369: LD_ADDR_EXP 16
3373: PUSH
3374: CALL_OW 44
3378: ST_TO_ADDR
// PlaceUnitArea ( mech , am2 , false ) ;
3379: LD_EXP 16
3383: PPUSH
3384: LD_INT 3
3386: PPUSH
3387: LD_INT 0
3389: PPUSH
3390: CALL_OW 49
// ComEnterUnit ( mech , work ) ;
3394: LD_EXP 16
3398: PPUSH
3399: LD_EXP 15
3403: PPUSH
3404: CALL_OW 120
// end ;
3408: GO 3303
3410: POP
3411: POP
// end ; end ; end ; end ; end ; end ;
3412: PPOPN 1
3414: END
// on BuildingStarted ( b , bd ) do begin if GetSide ( b ) = 3 then
3415: LD_VAR 0 1
3419: PPUSH
3420: CALL_OW 255
3424: PUSH
3425: LD_INT 3
3427: EQUAL
3428: IFFALSE 3458
// begin if GetBType ( b ) = b_armoury then
3430: LD_VAR 0 1
3434: PPUSH
3435: CALL_OW 266
3439: PUSH
3440: LD_INT 4
3442: EQUAL
3443: IFFALSE 3458
// begin SetRestrict ( b_armoury , 3 , false ) ;
3445: LD_INT 4
3447: PPUSH
3448: LD_INT 3
3450: PPUSH
3451: LD_INT 0
3453: PPUSH
3454: CALL_OW 324
// end ; end ; end ;
3458: PPOPN 2
3460: END
// on UnitDestroyed ( b ) do begin if GetSide ( b ) = 3 then
3461: LD_VAR 0 1
3465: PPUSH
3466: CALL_OW 255
3470: PUSH
3471: LD_INT 3
3473: EQUAL
3474: IFFALSE 3504
// begin if GetBType ( b ) = b_armoury then
3476: LD_VAR 0 1
3480: PPUSH
3481: CALL_OW 266
3485: PUSH
3486: LD_INT 4
3488: EQUAL
3489: IFFALSE 3504
// begin SetRestrict ( b_armoury , 3 , true ) ;
3491: LD_INT 4
3493: PPUSH
3494: LD_INT 3
3496: PPUSH
3497: LD_INT 1
3499: PPUSH
3500: CALL_OW 324
// end ; end ; end ;
3504: PPOPN 1
3506: END
// on Contact ( side1 , side2 ) do begin if side1 = 3 and side2 = 4 then
3507: LD_VAR 0 1
3511: PUSH
3512: LD_INT 3
3514: EQUAL
3515: PUSH
3516: LD_VAR 0 2
3520: PUSH
3521: LD_INT 4
3523: EQUAL
3524: AND
3525: IFFALSE 3641
// begin grupa = FilterUnitsInArea ( security , [ [ f_side , 4 ] , [ f_outside ] , [ f_class , 1 ] ] ) ;
3527: LD_ADDR_LOC 6
3531: PUSH
3532: LD_INT 12
3534: PPUSH
3535: LD_INT 22
3537: PUSH
3538: LD_INT 4
3540: PUSH
3541: EMPTY
3542: LIST
3543: LIST
3544: PUSH
3545: LD_INT 56
3547: PUSH
3548: EMPTY
3549: LIST
3550: PUSH
3551: LD_INT 25
3553: PUSH
3554: LD_INT 1
3556: PUSH
3557: EMPTY
3558: LIST
3559: LIST
3560: PUSH
3561: EMPTY
3562: LIST
3563: LIST
3564: LIST
3565: PPUSH
3566: CALL_OW 70
3570: ST_TO_ADDR
// nasi = FilterAllUnits ( [ [ f_side , 3 ] , [ f_type , unit_human ] ] ) ;
3571: LD_ADDR_LOC 7
3575: PUSH
3576: LD_INT 22
3578: PUSH
3579: LD_INT 3
3581: PUSH
3582: EMPTY
3583: LIST
3584: LIST
3585: PUSH
3586: LD_INT 21
3588: PUSH
3589: LD_INT 1
3591: PUSH
3592: EMPTY
3593: LIST
3594: LIST
3595: PUSH
3596: EMPTY
3597: LIST
3598: LIST
3599: PPUSH
3600: CALL_OW 69
3604: ST_TO_ADDR
// ComAttackUnit ( grupa [ i ] , NearestUnitToUnit ( nasi , grupa [ i ] ) ) ;
3605: LD_LOC 6
3609: PUSH
3610: LD_LOC 5
3614: ARRAY
3615: PPUSH
3616: LD_LOC 7
3620: PPUSH
3621: LD_LOC 6
3625: PUSH
3626: LD_LOC 5
3630: ARRAY
3631: PPUSH
3632: CALL_OW 74
3636: PPUSH
3637: CALL_OW 115
// end ; end ;
3641: PPOPN 2
3643: END
// on UnitGoesToRed ( un ) do begin if un = FilterAllUnits ( [ [ f_side , 1 ] , [ f_btype , b_workshop ] ] [ 1 ] ) then
3644: LD_VAR 0 1
3648: PUSH
3649: LD_INT 22
3651: PUSH
3652: LD_INT 1
3654: PUSH
3655: EMPTY
3656: LIST
3657: LIST
3658: PUSH
3659: LD_INT 30
3661: PUSH
3662: LD_INT 2
3664: PUSH
3665: EMPTY
3666: LIST
3667: LIST
3668: PUSH
3669: EMPTY
3670: LIST
3671: LIST
3672: PUSH
3673: LD_INT 1
3675: ARRAY
3676: PPUSH
3677: CALL_OW 69
3681: EQUAL
3682: IFFALSE 3798
// begin grupa = FilterUnitsInArea ( security , [ [ f_side , 1 ] , [ f_outside ] , [ f_class , 1 ] ] ) ;
3684: LD_ADDR_LOC 6
3688: PUSH
3689: LD_INT 12
3691: PPUSH
3692: LD_INT 22
3694: PUSH
3695: LD_INT 1
3697: PUSH
3698: EMPTY
3699: LIST
3700: LIST
3701: PUSH
3702: LD_INT 56
3704: PUSH
3705: EMPTY
3706: LIST
3707: PUSH
3708: LD_INT 25
3710: PUSH
3711: LD_INT 1
3713: PUSH
3714: EMPTY
3715: LIST
3716: LIST
3717: PUSH
3718: EMPTY
3719: LIST
3720: LIST
3721: LIST
3722: PPUSH
3723: CALL_OW 70
3727: ST_TO_ADDR
// nasi = FilterAllUnits ( [ [ f_side , 3 ] , [ f_type , unit_human ] ] ) ;
3728: LD_ADDR_LOC 7
3732: PUSH
3733: LD_INT 22
3735: PUSH
3736: LD_INT 3
3738: PUSH
3739: EMPTY
3740: LIST
3741: LIST
3742: PUSH
3743: LD_INT 21
3745: PUSH
3746: LD_INT 1
3748: PUSH
3749: EMPTY
3750: LIST
3751: LIST
3752: PUSH
3753: EMPTY
3754: LIST
3755: LIST
3756: PPUSH
3757: CALL_OW 69
3761: ST_TO_ADDR
// ComAttackUnit ( grupa [ i ] , NearestUnitToUnit ( nasi , grupa [ i ] ) ) ;
3762: LD_LOC 6
3766: PUSH
3767: LD_LOC 5
3771: ARRAY
3772: PPUSH
3773: LD_LOC 7
3777: PPUSH
3778: LD_LOC 6
3782: PUSH
3783: LD_LOC 5
3787: ARRAY
3788: PPUSH
3789: CALL_OW 74
3793: PPUSH
3794: CALL_OW 115
// end ; end ;
3798: PPOPN 1
3800: END
// on VehicleConstructed ( v , work ) do begin if GetSide ( v ) = 1 then
3801: LD_VAR 0 1
3805: PPUSH
3806: CALL_OW 255
3810: PUSH
3811: LD_INT 1
3813: EQUAL
3814: IFFALSE 3951
// begin uc_side = 1 ;
3816: LD_ADDR_OWVAR 20
3820: PUSH
3821: LD_INT 1
3823: ST_TO_ADDR
// hc_skills = [ 1 , 1 , Rand ( 1 , 3 ) , 0 ] ;
3824: LD_ADDR_OWVAR 31
3828: PUSH
3829: LD_INT 1
3831: PUSH
3832: LD_INT 1
3834: PUSH
3835: LD_INT 1
3837: PPUSH
3838: LD_INT 3
3840: PPUSH
3841: CALL_OW 12
3845: PUSH
3846: LD_INT 0
3848: PUSH
3849: EMPTY
3850: LIST
3851: LIST
3852: LIST
3853: LIST
3854: ST_TO_ADDR
// hc_class = 3 ;
3855: LD_ADDR_OWVAR 28
3859: PUSH
3860: LD_INT 3
3862: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
3863: LD_ADDR_OWVAR 27
3867: PUSH
3868: LD_INT 1
3870: PPUSH
3871: LD_INT 2
3873: PPUSH
3874: CALL_OW 12
3878: ST_TO_ADDR
// mech = CreateHuman ;
3879: LD_ADDR_EXP 16
3883: PUSH
3884: CALL_OW 44
3888: ST_TO_ADDR
// PlaceUnitArea ( mech , am2 , false ) ;
3889: LD_EXP 16
3893: PPUSH
3894: LD_INT 3
3896: PPUSH
3897: LD_INT 0
3899: PPUSH
3900: CALL_OW 49
// AddComConstruct ( work , us_light_wheeled , engine_solar , control_manual , us_machine_gun ) ;
3904: LD_VAR 0 2
3908: PPUSH
3909: LD_INT 1
3911: PPUSH
3912: LD_INT 2
3914: PPUSH
3915: LD_INT 1
3917: PPUSH
3918: LD_INT 2
3920: PPUSH
3921: CALL_OW 185
// ComEnterUnit ( mech , work ) ;
3925: LD_EXP 16
3929: PPUSH
3930: LD_VAR 0 2
3934: PPUSH
3935: CALL_OW 120
// ComMoveToArea ( v , punkt ) ;
3939: LD_VAR 0 1
3943: PPUSH
3944: LD_INT 7
3946: PPUSH
3947: CALL_OW 113
// end ; end ; end_of_file
3951: PPOPN 2
3953: END
// every 0 0$01 trigger IsDead ( pak ) do
3954: LD_EXP 1
3958: PPUSH
3959: CALL_OW 301
3963: IFFALSE 3975
3965: GO 3967
3967: DISABLE
// begin YouLost ( pakryszkin ) ;
3968: LD_STRING pakryszkin
3970: PPUSH
3971: CALL_OW 104
// end ;
3975: END
// every 0 0$01 trigger FilterUnitsInArea ( jankesarea , ( [ f_side , 1 ] ) ) >= 1 or FilterUnitsInArea ( jankesarea , ( [ f_side , 4 ] ) ) >= 1 do
3976: LD_INT 4
3978: PPUSH
3979: LD_INT 22
3981: PUSH
3982: LD_INT 1
3984: PUSH
3985: EMPTY
3986: LIST
3987: LIST
3988: PPUSH
3989: CALL_OW 70
3993: PUSH
3994: LD_INT 1
3996: GREATEREQUAL
3997: PUSH
3998: LD_INT 4
4000: PPUSH
4001: LD_INT 22
4003: PUSH
4004: LD_INT 4
4006: PUSH
4007: EMPTY
4008: LIST
4009: LIST
4010: PPUSH
4011: CALL_OW 70
4015: PUSH
4016: LD_INT 1
4018: GREATEREQUAL
4019: OR
4020: IFFALSE 4032
4022: GO 4024
4024: DISABLE
// begin YouLost ( uciekli ) ;
4025: LD_STRING uciekli
4027: PPUSH
4028: CALL_OW 104
// end ;
4032: END
// every 0 0$01 marked 05 do
4033: GO 4035
4035: DISABLE
// begin wait ( 3 3$30 ) ;
4036: LD_INT 7350
4038: PPUSH
4039: CALL_OW 67
// Say ( pak , p8 ) ;
4043: LD_EXP 1
4047: PPUSH
4048: LD_STRING p8
4050: PPUSH
4051: CALL_OW 88
// Say ( pojmech , pos2 ) ;
4055: LD_EXP 8
4059: PPUSH
4060: LD_STRING pos2
4062: PPUSH
4063: CALL_OW 88
// Say ( pak , p4 ) ;
4067: LD_EXP 1
4071: PPUSH
4072: LD_STRING p4
4074: PPUSH
4075: CALL_OW 88
// if FilterAllUnits ( [ [ f_side , 1 ] , [ f_btype , b_workshop ] ] ) = 0 then
4079: LD_INT 22
4081: PUSH
4082: LD_INT 1
4084: PUSH
4085: EMPTY
4086: LIST
4087: LIST
4088: PUSH
4089: LD_INT 30
4091: PUSH
4092: LD_INT 2
4094: PUSH
4095: EMPTY
4096: LIST
4097: LIST
4098: PUSH
4099: EMPTY
4100: LIST
4101: LIST
4102: PPUSH
4103: CALL_OW 69
4107: PUSH
4108: LD_INT 0
4110: EQUAL
4111: IFFALSE 4125
// AddMedal ( warsztat , 1 ) else
4113: LD_STRING warsztat
4115: PPUSH
4116: LD_INT 1
4118: PPUSH
4119: CALL_OW 101
4123: GO 4136
// AddMedal ( warsztat , - 1 ) ;
4125: LD_STRING warsztat
4127: PPUSH
4128: LD_INT 1
4130: NEG
4131: PPUSH
4132: CALL_OW 101
// if FilterAllUnits ( [ [ f_side , 3 ] , [ f_btype , b_bunker ] , [ f_or , [ f_btype , b_breastwork ] ] ] ) >= 8 then
4136: LD_INT 22
4138: PUSH
4139: LD_INT 3
4141: PUSH
4142: EMPTY
4143: LIST
4144: LIST
4145: PUSH
4146: LD_INT 30
4148: PUSH
4149: LD_INT 32
4151: PUSH
4152: EMPTY
4153: LIST
4154: LIST
4155: PUSH
4156: LD_INT 2
4158: PUSH
4159: LD_INT 30
4161: PUSH
4162: LD_INT 31
4164: PUSH
4165: EMPTY
4166: LIST
4167: LIST
4168: PUSH
4169: EMPTY
4170: LIST
4171: LIST
4172: PUSH
4173: EMPTY
4174: LIST
4175: LIST
4176: LIST
4177: PPUSH
4178: CALL_OW 69
4182: PUSH
4183: LD_INT 8
4185: GREATEREQUAL
4186: IFFALSE 4200
// AddMedal ( obrona , 1 ) else
4188: LD_STRING obrona
4190: PPUSH
4191: LD_INT 1
4193: PPUSH
4194: CALL_OW 101
4198: GO 4211
// AddMedal ( obrona , - 1 ) ;
4200: LD_STRING obrona
4202: PPUSH
4203: LD_INT 1
4205: NEG
4206: PPUSH
4207: CALL_OW 101
// if FilterAllUnits ( [ [ f_side , 3 ] , [ f_type , unit_human ] ] ) = 12 then
4211: LD_INT 22
4213: PUSH
4214: LD_INT 3
4216: PUSH
4217: EMPTY
4218: LIST
4219: LIST
4220: PUSH
4221: LD_INT 21
4223: PUSH
4224: LD_INT 1
4226: PUSH
4227: EMPTY
4228: LIST
4229: LIST
4230: PUSH
4231: EMPTY
4232: LIST
4233: LIST
4234: PPUSH
4235: CALL_OW 69
4239: PUSH
4240: LD_INT 12
4242: EQUAL
4243: IFFALSE 4257
// AddMedal ( ludzie , 1 ) else
4245: LD_STRING ludzie
4247: PPUSH
4248: LD_INT 1
4250: PPUSH
4251: CALL_OW 101
4255: GO 4268
// AddMedal ( ludzie , - 1 ) ;
4257: LD_STRING ludzie
4259: PPUSH
4260: LD_INT 1
4262: NEG
4263: PPUSH
4264: CALL_OW 101
// SaveCharacters ( pak , pak ) ;
4268: LD_EXP 1
4272: PPUSH
4273: LD_STRING pak
4275: PPUSH
4276: CALL_OW 38
// GiveMedals ( MAIN ) ;
4280: LD_STRING MAIN
4282: PPUSH
4283: CALL_OW 102
// YouWin ;
4287: CALL_OW 103
// end ;
4291: END
